home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / connect.aut < prev    next >
Text File  |  1991-10-18  |  1KB  |  69 lines
  1.  
  2. ;NIFTY-Serve にオートログインするマクロです
  3.  
  4. $1="NIFTY-Serve FENICS-ROAD2 高崎"    ;ﾒｯｾｰｼﾞ
  5. $2="ATZ"                ;ﾓﾃﾞﾑの初期化(たいていは変更不要)
  6. $3="ATE1M1Q0V1X3&P2\\N3\\V1\\Q3\\J0"    ;これはMNPﾓﾃﾞﾑの時の設定の例です
  7.     ;詳しくはMODEM.DOCまたはﾓﾃﾞﾑのﾏﾆｭｱﾙを
  8. $4="ATD278955"    ;最寄りのｱｸｾｽﾎﾟｲﾝﾄのTel (ROAD1/2 両方に対応)
  9. $5="PBA02544"    ;ID
  10. $6="########"    ;ﾊﾟｽﾜｰﾄﾞ
  11.  
  12. ; ここから下は書換え不要
  13. CMD S 4800 B-8 P-N X-ON
  14. CMD K S
  15. CMD E F
  16. CMD K 0
  17. %2=month()
  18. %3=day()
  19. %4=hour()
  20. IF cts()==0
  21.  ECHO "\r^Gモデムを接続してください\r"
  22. ENDIF
  23. IF cd()==1
  24.  ECHO "\r^G回線がつながっています\r"
  25. ENDIF
  26.  
  27. LABEL ACC1
  28. ECHO "   $1   \r"
  29. SEND "$2\r",1
  30. WAIT "OK",3
  31. SEND "$3\r",1
  32. WAIT "OK",3
  33. SEND "$4\r",1
  34.  
  35. LOOK 30
  36.  CASE "CONNECT"
  37.  CASE "BUSY"
  38.   CMD O
  39.   WAIT "N",3
  40.   ECHO "\r^G  再ダイヤルしてみます  \r"
  41.   GOTO ACC1
  42.  CASE/TIMEOUT
  43.   CMD O
  44.   WAIT "N",3
  45.   ECHO "\r^G  再ダイヤルしてみます  \r"
  46.   GOTO ACC1
  47. FREE
  48.  
  49. SEND "@P\r+",2
  50. LOOK
  51.  CASE "ERR"
  52.   SEND ".00+\r",2
  53.  CASE "^J*"
  54.   SEND "C NIF\r",1
  55. FREE
  56.  
  57. WAIT "->"
  58. SEND "SVC\r",1
  59. WAIT "->"
  60. SEND "$5\r",1
  61. WAIT "->"
  62. SEND "$6\r",1
  63. CMD D "%2-%3-%4.LOG"
  64.  
  65. WAIT "^J　ご利用誠にありがとうございました"
  66. CMD D
  67. END
  68.  
  69.